home *** CD-ROM | disk | FTP | other *** search
/ Network CD 1 / Network CD.iso / amospd / 551-560 / apd557 / part4.amos / part4.amosSourceCode
AMOS Source Code  |  2000-10-11  |  2KB  |  82 lines
  1. Dim A$(100)
  2. Load "df0:credits",7
  3. Load "df0:radiate"
  4. Get Disc Fonts 
  5. Screen Open 0,320,320,32,Lowres
  6. Unpack 7 To 0
  7. Music 1
  8. Shift Up 1,2,14,1
  9. Screen Display 0,130,40,320,50
  10. Screen Open 1,320,320,2,Lowres
  11. Flash 1,"(fff,3)(eee,3)(ddd,3)(ccc,3)(bbb,3)(aaa,3)(999,3)(888,3)(777,3)(888,3)(999,3)(aaa,3)(bbb,3)(ccc,3)(ddd,3)(eee,3)"
  12. Screen To Front 0
  13. Cls 0
  14. Set Font 1
  15. Ink 1,0
  16. A$(15)="WELL HERE ARE"
  17. A$(16)=" THE CREDITS"
  18. A$(17)=""
  19. A$(18)="  ALL CODING"
  20. A$(19)="   SHADOW OF"
  21. A$(20)="  CORRUPTION"
  22. A$(21)=""
  23. A$(22)="    ALL GFX"
  24. A$(23)="   SHADOW OF"
  25. A$(24)="   CORRUPTION"
  26. A$(25)="   EXCEPT FOR"
  27. A$(26)="  LOADING PAGE"
  28. A$(27)="AND START PAGE"
  29. A$(28)="  BY SHADOW &"
  30. A$(29)="BLAZE(DICKHEAD)"
  31. A$(30)=""
  32. A$(31)="FIRST MUSIC BY"
  33. A$(32)="??????????????"
  34. A$(33)=""
  35. A$(34)="SECOND MUSIC BY"
  36. A$(35)=" ????? OF ACU"
  37. A$(36)=""
  38. A$(37)=" THIRD MUSIC BY"
  39. A$(38)="4-MAT OF ANARCHY"
  40. A$(39)=""
  41. A$(40)="  THIS MUSIC BY"
  42. A$(41)="  DJ JAZZY C OF"
  43. A$(42)="   CORRUPTION"
  44. A$(43)=""
  45. A$(44)="  GREETINGS TO"
  46. A$(45)="     ZODIAC"
  47. A$(46)="     BEAST"
  48. A$(47)="   IMAGEMAKER"
  49. A$(48)="    HAKEYE"
  50. A$(49)="    MR.PLANT"
  51. A$(50)="   TIGERSOFT"
  52. A$(51)=" ALL AMOS USERS"
  53. A$(52)=""
  54. A$(53)="COULD I PLEASE "
  55. A$(54)="JOIN A GROUP OUT"
  56. A$(55)="THERE. MY ADRESS"
  57. A$(56)="IS 33 ARGYLE RD.  "
  58. A$(57)="KEW. VICTORIA "
  59. A$(58)="AUSTRALIA 3101"
  60. A$(59)="I DONT CARE HOW "
  61. A$(60)="GOOD/BAD THE"
  62. A$(61)="GROUP IS."
  63. For A=62 To 80
  64. A$(A)=""
  65. Next A
  66. L=59
  67. For A=1 To L
  68. For B=20 To 0 Step -2
  69. For C=1 To 17
  70. Text 0,C*20+B,A$(C+A)
  71. Next C
  72. Next B
  73. Next A
  74. Music Off 
  75. Screen Close 0
  76. Screen 1
  77. Cls 0
  78. Flash Off 
  79. Text 0,100,"THE END!!"
  80. Flash 1,"(fff,3)(eee,3)(ddd,3)(ccc,3)(bbb,3)(aaa,3)(999,3)(888,3)(777,3)(666,3)(555,3)(444,3)(333,3)(222,3)(111,3)(000,3)"
  81. Wait 42
  82. End